unit QRelPedidosAnal;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, QRCtrls, StdCtrls, Mask, DBCtrls, QuickRpt,
  ExtCtrls;

type
  TFormQRelPedAnal = class(TForm)
    QuickRep1: TQuickRep;
    QRBand1: TQRBand;
    QRTitulo: TQRLabel;
    QRTitulo2: TQRLabel;
    QRLabel1: TQRLabel;
    QRSysData1: TQRSysData;
    QRLabel2: TQRLabel;
    QRSysData2: TQRSysData;
    QRBand2: TQRBand;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    DBEdit1: TDBEdit;
    QRBand4: TQRBand;
    QRBand3: TQRBand;
    QREndereco: TQRLabel;
    QRLabel8: TQRLabel;
    QRShape2: TQRShape;
    DataSource1: TDataSource;
    QueryPedidos: TQuery;
    QueryPedidosdata: TDateField;
    QueryPedidoscliente: TStringField;
    QueryPedidospagto: TStringField;
    QueryPedidosid: TIntegerField;
    QueryPedidosnr_pedido: TIntegerField;
    QueryPedidosid_movimento: TIntegerField;
    QueryPedidosid_cliente: TIntegerField;
    QueryPedidosid_operador: TIntegerField;
    QueryPedidosid_entregador: TIntegerField;
    QueryPedidosid_tp_pagamento: TIntegerField;
    QueryPedidosid_st_pedido: TIntegerField;
    QueryPedidosid_cartao: TIntegerField;
    QueryPedidosid_ticket: TIntegerField;
    QueryPedidosdt_pedido: TDateTimeField;
    QueryPedidosvl_pedido: TFloatField;
    QueryPedidosvl_desconto: TFloatField;
    QueryPedidosvl_pago: TFloatField;
    QueryPedidosid_banco: TIntegerField;
    QueryPedidosnr_cheque: TStringField;
    QueryPedidosnr_banco: TStringField;
    QueryPedidosnr_agencia: TStringField;
    QueryPedidosobs: TStringField;
    QRGroup1: TQRGroup;
    QRExpr2: TQRExpr;
    QRLabel13: TQRLabel;
    QRLabel14: TQRLabel;
    QRLabel15: TQRLabel;
    QRLabel4: TQRLabel;
    QueryPedidosquantidade: TIntegerField;
    QueryPedidosproduto1: TStringField;
    QueryPedidosproduto2: TStringField;
    QueryPedidosproduto: TStringField;
    QueryPedidosis_pizza: TIntegerField;
    QueryPedidosborda: TStringField;
    QueryPedidostamanho: TStringField;
    QRLabel3: TQRLabel;
    QRLabel10: TQRLabel;
    QRDBText5: TQRDBText;
    QRDBText3: TQRDBText;
    QRLabel5: TQRLabel;
    QRShape1: TQRShape;
    QRShape3: TQRShape;
    QRLabel7: TQRLabel;
    Query1: TQuery;
    QRLabel6: TQRLabel;
    QRLabel9: TQRLabel;
    QRDBText4: TQRDBText;
    QueryPedidosid_mesa: TIntegerField;
    QueryPedidosid_tp_pedido: TIntegerField;
    QueryPedidosdt_encerramento: TDateTimeField;
    QueryPedidosqt_pessoas: TIntegerField;
    QueryPedidosqt_criancas: TIntegerField;
    QueryPedidostx_servico: TFloatField;
    QueryPedidostipo_pedido: TStringField;
    procedure QRDBText2Print(sender: TObject; var Value: String);
    procedure QRDBText3Print(sender: TObject; var Value: String);
    procedure QRDBText4Print(sender: TObject; var Value: String);
    procedure QRDBText5Print(sender: TObject; var Value: String);
    procedure QRExpr1Print(sender: TObject; var Value: String);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormQRelPedAnal: TFormQRelPedAnal;

implementation

{$R *.dfm}

procedure TFormQRelPedAnal.QRDBText2Print(sender: TObject;
  var Value: String);
begin

    if QueryPedidos.FieldByName('is_pizza').AsInteger = 1 then
    begin
         if Trim(QueryPedidos.FieldByName('produto2').AsString) <> '' then
            value := QueryPedidos.FieldByName('produto1').AsString + ' / ' +
                     QueryPedidos.FieldByName('produto2').AsString;

         Value := Value + ' Tam.' + Trim(QueryPedidos.FieldByName('tamanho').AsString);

         if Trim(QueryPedidos.FieldByName('borda').AsString) <> 'NENHUMA' then
            Value := Value + 'C/ BORDA ' + Trim(QueryPedidos.FieldByName('borda').AsString);

            

    end;

end;

procedure TFormQRelPedAnal.QRDBText3Print(sender: TObject;
  var Value: String);
begin
   //if Trim(QueryPedidos.FieldByName('borda').AsString) = 'NENHUMA' then
   //   Value := ''
   //else
   //   Value := 'Borda: ' + Value;
end;

procedure TFormQRelPedAnal.QRDBText4Print(sender: TObject;
  var Value: String);
begin
   //if Trim(QueryPedidos.FieldByName('tamanho').AsString) = 'NENHUMA' then
   //   Value := ''
   //else
   //   Value := 'Tamanho: ' + Value;   
end;

procedure TFormQRelPedAnal.QRDBText5Print(sender: TObject;
  var Value: String);
begin
Value := formatfloat('###,###,##0.00', StrToFloat(Value));
end;

procedure TFormQRelPedAnal.QRExpr1Print(sender: TObject;
  var Value: String);
begin
Value := formatfloat('###,###,##0.00', StrToFloat(Value));
end;

end.
